home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD6437652000.psc / Chat Client & Chat Server / Chat Client / Msgbox.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-05-16  |  12.6 KB  |  299 lines
  1. VERSION 5.00
  2. Begin VB.Form Form6 
  3.    BackColor       =   &H00C00000&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "MessageBox Manager"
  6.    ClientHeight    =   3195
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   4680
  10.    LinkTopic       =   "Form6"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3195
  14.    ScaleWidth      =   4680
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.TextBox Text3 
  18.       Height          =   285
  19.       Left            =   4080
  20.       Locked          =   -1  'True
  21.       TabIndex        =   17
  22.       Text            =   "00"
  23.       Top             =   2760
  24.       Visible         =   0   'False
  25.       Width           =   375
  26.    End
  27.    Begin VB.CommandButton Command1 
  28.       BackColor       =   &H0080C0FF&
  29.       Caption         =   "&Send"
  30.       Height          =   255
  31.       Index           =   1
  32.       Left            =   2400
  33.       Style           =   1  'Graphical
  34.       TabIndex        =   16
  35.       Top             =   2760
  36.       Width           =   1215
  37.    End
  38.    Begin VB.CommandButton Command1 
  39.       BackColor       =   &H0080C0FF&
  40.       Caption         =   "&Test"
  41.       Height          =   255
  42.       Index           =   0
  43.       Left            =   1080
  44.       Style           =   1  'Graphical
  45.       TabIndex        =   15
  46.       Top             =   2760
  47.       Width           =   1215
  48.    End
  49.    Begin VB.OptionButton Option1 
  50.       BackColor       =   &H00C00000&
  51.       Caption         =   "Ok, Help"
  52.       ForeColor       =   &H00FFFFFF&
  53.       Height          =   195
  54.       Index           =   6
  55.       Left            =   3240
  56.       TabIndex        =   14
  57.       Top             =   1080
  58.       Width           =   975
  59.    End
  60.    Begin VB.OptionButton Option1 
  61.       BackColor       =   &H00C00000&
  62.       Caption         =   "Retry, Cancel"
  63.       ForeColor       =   &H00FFFFFF&
  64.       Height          =   195
  65.       Index           =   5
  66.       Left            =   1440
  67.       TabIndex        =   13
  68.       Top             =   1560
  69.       Width           =   1335
  70.    End
  71.    Begin VB.OptionButton Option1 
  72.       BackColor       =   &H00C00000&
  73.       Caption         =   "Abort, Retry, Ignore"
  74.       ForeColor       =   &H00FFFFFF&
  75.       Height          =   195
  76.       Index           =   4
  77.       Left            =   1440
  78.       TabIndex        =   12
  79.       Top             =   1320
  80.       Width           =   1695
  81.    End
  82.    Begin VB.OptionButton Option1 
  83.       BackColor       =   &H00C00000&
  84.       Caption         =   "Yes, No, Cancel"
  85.       ForeColor       =   &H00FFFFFF&
  86.       Height          =   195
  87.       Index           =   3
  88.       Left            =   1440
  89.       TabIndex        =   11
  90.       Top             =   1080
  91.       Width           =   1575
  92.    End
  93.    Begin VB.OptionButton Option1 
  94.       BackColor       =   &H00C00000&
  95.       Caption         =   "Yes, No"
  96.       ForeColor       =   &H00FFFFFF&
  97.       Height          =   195
  98.       Index           =   2
  99.       Left            =   240
  100.       TabIndex        =   10
  101.       Top             =   1560
  102.       Width           =   1095
  103.    End
  104.    Begin VB.OptionButton Option1 
  105.       BackColor       =   &H00C00000&
  106.       Caption         =   "Ok, Cancel"
  107.       ForeColor       =   &H00FFFFFF&
  108.       Height          =   195
  109.       Index           =   1
  110.       Left            =   240
  111.       TabIndex        =   9
  112.       Top             =   1320
  113.       Width           =   1095
  114.    End
  115.    Begin VB.OptionButton Option1 
  116.       BackColor       =   &H00C00000&
  117.       Caption         =   "Ok"
  118.       ForeColor       =   &H00FFFFFF&
  119.       Height          =   195
  120.       Index           =   0
  121.       Left            =   240
  122.       TabIndex        =   8
  123.       Top             =   1080
  124.       Value           =   -1  'True
  125.       Width           =   615
  126.    End
  127.    Begin VB.TextBox Text2 
  128.       Height          =   285
  129.       Left            =   840
  130.       TabIndex        =   7
  131.       Top             =   2280
  132.       Width           =   3615
  133.    End
  134.    Begin VB.TextBox Text1 
  135.       Height          =   285
  136.       Left            =   840
  137.       TabIndex        =   5
  138.       Top             =   1920
  139.       Width           =   3615
  140.    End
  141.    Begin VB.CheckBox Check1 
  142.       Height          =   615
  143.       Index           =   3
  144.       Left            =   3240
  145.       Picture         =   "Msgbox.frx":0000
  146.       Style           =   1  'Graphical
  147.       TabIndex        =   3
  148.       Top             =   240
  149.       Width           =   735
  150.    End
  151.    Begin VB.CheckBox Check1 
  152.       Height          =   615
  153.       Index           =   2
  154.       Left            =   2400
  155.       Picture         =   "Msgbox.frx":0C42
  156.       Style           =   1  'Graphical
  157.       TabIndex        =   2
  158.       Top             =   240
  159.       Width           =   735
  160.    End
  161.    Begin VB.CheckBox Check1 
  162.       Height          =   615
  163.       Index           =   1
  164.       Left            =   1560
  165.       Picture         =   "Msgbox.frx":1884
  166.       Style           =   1  'Graphical
  167.       TabIndex        =   1
  168.       Top             =   240
  169.       Width           =   735
  170.    End
  171.    Begin VB.CheckBox Check1 
  172.       Height          =   615
  173.       Index           =   0
  174.       Left            =   720
  175.       Picture         =   "Msgbox.frx":24C6
  176.       Style           =   1  'Graphical
  177.       TabIndex        =   0
  178.       Top             =   240
  179.       Width           =   735
  180.    End
  181.    Begin VB.Label Label1 
  182.       Alignment       =   1  'Right Justify
  183.       AutoSize        =   -1  'True
  184.       BackColor       =   &H00C00000&
  185.       Caption         =   "Message:"
  186.       ForeColor       =   &H00FFFFFF&
  187.       Height          =   195
  188.       Index           =   1
  189.       Left            =   120
  190.       TabIndex        =   6
  191.       Top             =   2280
  192.       Width           =   690
  193.    End
  194.    Begin VB.Label Label1 
  195.       Alignment       =   1  'Right Justify
  196.       AutoSize        =   -1  'True
  197.       BackColor       =   &H00C00000&
  198.       Caption         =   "Title:"
  199.       ForeColor       =   &H00FFFFFF&
  200.       Height          =   195
  201.       Index           =   0
  202.       Left            =   480
  203.       TabIndex        =   4
  204.       Top             =   1920
  205.       Width           =   345
  206.    End
  207. Attribute VB_Name = "Form6"
  208. Attribute VB_GlobalNameSpace = False
  209. Attribute VB_Creatable = False
  210. Attribute VB_PredeclaredId = True
  211. Attribute VB_Exposed = False
  212. Private Function Code()
  213. If Check1(0).Value = 1 And Option1(0).Value = True Then Text3 = "00"
  214. If Check1(0).Value = 1 And Option1(1).Value = True Then Text3 = "01"
  215. If Check1(0).Value = 1 And Option1(2).Value = True Then Text3 = "02"
  216. If Check1(0).Value = 1 And Option1(3).Value = True Then Text3 = "03"
  217. If Check1(0).Value = 1 And Option1(4).Value = True Then Text3 = "04"
  218. If Check1(0).Value = 1 And Option1(5).Value = True Then Text3 = "05"
  219. If Check1(0).Value = 1 And Option1(6).Value = True Then Text3 = "06"
  220. If Check1(1).Value = 1 And Option1(0).Value = True Then Text3 = "10"
  221. If Check1(1).Value = 1 And Option1(1).Value = True Then Text3 = "11"
  222. If Check1(1).Value = 1 And Option1(2).Value = True Then Text3 = "12"
  223. If Check1(1).Value = 1 And Option1(3).Value = True Then Text3 = "13"
  224. If Check1(1).Value = 1 And Option1(4).Value = True Then Text3 = "14"
  225. If Check1(1).Value = 1 And Option1(5).Value = True Then Text3 = "15"
  226. If Check1(1).Value = 1 And Option1(6).Value = True Then Text3 = "16"
  227. If Check1(2).Value = 1 And Option1(0).Value = True Then Text3 = "20"
  228. If Check1(2).Value = 1 And Option1(1).Value = True Then Text3 = "21"
  229. If Check1(2).Value = 1 And Option1(2).Value = True Then Text3 = "22"
  230. If Check1(2).Value = 1 And Option1(3).Value = True Then Text3 = "23"
  231. If Check1(2).Value = 1 And Option1(4).Value = True Then Text3 = "24"
  232. If Check1(2).Value = 1 And Option1(5).Value = True Then Text3 = "25"
  233. If Check1(2).Value = 1 And Option1(6).Value = True Then Text3 = "26"
  234. If Check1(3).Value = 1 And Option1(0).Value = True Then Text3 = "30"
  235. If Check1(3).Value = 1 And Option1(1).Value = True Then Text3 = "31"
  236. If Check1(3).Value = 1 And Option1(2).Value = True Then Text3 = "32"
  237. If Check1(3).Value = 1 And Option1(3).Value = True Then Text3 = "33"
  238. If Check1(3).Value = 1 And Option1(4).Value = True Then Text3 = "34"
  239. If Check1(3).Value = 1 And Option1(5).Value = True Then Text3 = "35"
  240. If Check1(3).Value = 1 And Option1(6).Value = True Then Text3 = "36"
  241. If Check1(0).Value = 0 And Check1(1).Value = 0 And Check1(2).Value = 0 And Check1(3).Value = 0 And Option1(0).Value = True Then Text3 = "40"
  242. If Check1(0).Value = 0 And Check1(1).Value = 0 And Check1(2).Value = 0 And Check1(3).Value = 0 And Option1(1).Value = True Then Text3 = "41"
  243. If Check1(0).Value = 0 And Check1(1).Value = 0 And Check1(2).Value = 0 And Check1(3).Value = 0 And Option1(2).Value = True Then Text3 = "42"
  244. If Check1(0).Value = 0 And Check1(1).Value = 0 And Check1(2).Value = 0 And Check1(3).Value = 0 And Option1(3).Value = True Then Text3 = "43"
  245. If Check1(0).Value = 0 And Check1(1).Value = 0 And Check1(2).Value = 0 And Check1(3).Value = 0 And Option1(4).Value = True Then Text3 = "44"
  246. If Check1(0).Value = 0 And Check1(1).Value = 0 And Check1(2).Value = 0 And Check1(3).Value = 0 And Option1(5).Value = True Then Text3 = "45"
  247. If Check1(0).Value = 0 And Check1(1).Value = 0 And Check1(2).Value = 0 And Check1(3).Value = 0 And Option1(6).Value = True Then Text3 = "46"
  248. End Function
  249. Private Sub Check1_Click(Index As Integer)
  250. If Index = 0 And Check1(0).Value = 1 Then Check1(1).Value = 0: Check1(2).Value = 0: Check1(3).Value = 0
  251. If Index = 1 And Check1(1).Value = 1 Then Check1(0).Value = 0: Check1(2).Value = 0: Check1(3).Value = 0
  252. If Index = 2 And Check1(2).Value = 1 Then Check1(0).Value = 0: Check1(1).Value = 0: Check1(3).Value = 0
  253. If Index = 3 And Check1(3).Value = 1 Then Check1(0).Value = 0: Check1(1).Value = 0: Check1(2).Value = 0
  254. Call Code
  255. End Sub
  256. Private Sub Command1_Click(Index As Integer)
  257. If Index = 0 Then
  258. If Text3 = "00" Then msg = MsgBox(Text2, vbCritical + vbOKOnly, Text1)
  259. If Text3 = "01" Then msg = MsgBox(Text2, vbCritical + vbOKCancel, Text1)
  260. If Text3 = "02" Then msg = MsgBox(Text2, vbCritical + vbYesNo, Text1)
  261. If Text3 = "03" Then msg = MsgBox(Text2, vbCritical + vbYesNoCancel, Text1)
  262. If Text3 = "04" Then msg = MsgBox(Text2, vbCritical + vbAbortRetryIgnore, Text1)
  263. If Text3 = "05" Then msg = MsgBox(Text2, vbCritical + vbRetryCancel, Text1)
  264. If Text3 = "06" Then msg = MsgBox(Text2, vbCritical + vbMsgBoxHelpButton, Text1)
  265. If Text3 = "10" Then msg = MsgBox(Text2, vbExclamation + vbOKOnly, Text1)
  266. If Text3 = "11" Then msg = MsgBox(Text2, vbExclamation + vbOKCancel, Text1)
  267. If Text3 = "12" Then msg = MsgBox(Text2, vbExclamation + vbYesNo, Text1)
  268. If Text3 = "13" Then msg = MsgBox(Text2, vbExclamation + vbYesNoCancel, Text1)
  269. If Text3 = "14" Then msg = MsgBox(Text2, vbExclamation + vbAbortRetryIgnore, Text1)
  270. If Text3 = "15" Then msg = MsgBox(Text2, vbExclamation + vbRetryCancel, Text1)
  271. If Text3 = "16" Then msg = MsgBox(Text2, vbExclamation + vbMsgBoxHelpButton, Text1)
  272. If Text3 = "20" Then msg = MsgBox(Text2, vbInformation + vbOKOnly, Text1)
  273. If Text3 = "21" Then msg = MsgBox(Text2, vbInformation + vbOKCancel, Text1)
  274. If Text3 = "22" Then msg = MsgBox(Text2, vbInformation + vbYesNo, Text1)
  275. If Text3 = "23" Then msg = MsgBox(Text2, vbInformation + vbYesNoCancel, Text1)
  276. If Text3 = "24" Then msg = MsgBox(Text2, vbInformation + vbAbortRetryIgnore, Text1)
  277. If Text3 = "25" Then msg = MsgBox(Text2, vbInformation + vbRetryCancel, Text1)
  278. If Text3 = "26" Then msg = MsgBox(Text2, vbInformation + vbMsgBoxHelpButton, Text1)
  279. If Text3 = "30" Then msg = MsgBox(Text2, vbQuestion + vbOKOnly, Text1)
  280. If Text3 = "31" Then msg = MsgBox(Text2, vbQuestion + vbOKCancel, Text1)
  281. If Text3 = "32" Then msg = MsgBox(Text2, vbQuestion + vbYesNo, Text1)
  282. If Text3 = "33" Then msg = MsgBox(Text2, vbQuestion + vbYesNoCancel, Text1)
  283. If Text3 = "34" Then msg = MsgBox(Text2, vbQuestion + vbAbortRetryIgnore, Text1)
  284. If Text3 = "35" Then msg = MsgBox(Text2, vbQuestion + vbRetryCancel, Text1)
  285. If Text3 = "36" Then msg = MsgBox(Text2, vbQuestion + vbMsgBoxHelpButton, Text1)
  286. If Text3 = "40" Then msg = MsgBox(Text2, vbOKOnly, Text1)
  287. If Text3 = "41" Then msg = MsgBox(Text2, vbOKCancel, Text1)
  288. If Text3 = "42" Then msg = MsgBox(Text2, vbYesNo, Text1)
  289. If Text3 = "43" Then msg = MsgBox(Text2, vbYesNoCancel, Text1)
  290. If Text3 = "44" Then msg = MsgBox(Text2, vbAbortRetryIgnore, Text1)
  291. If Text3 = "45" Then msg = MsgBox(Text2, vbRetryCancel, Text1)
  292. If Text3 = "46" Then msg = MsgBox(Text2, vbMsgBoxHelpButton, Text1)
  293. End If
  294. If Index = 1 Then Send "MsgBox" + Text3 + Text1 + Chr$(255) + Text2
  295. End Sub
  296. Private Sub Option1_Click(Index As Integer)
  297. Call Code
  298. End Sub
  299.